PartialReplica Property Example

The following code example uses the PartialReplica property to replicate all records representing orders from customers in California:

Sub PartialReplicaX()

    ' Assumptions: dbsTemp is the partial replica and
    ' appropriate relationships already exist between
    ' the tables.

    Dim tdfOrders As TableDef
    Dim relCustOrd As Relation
    Dim dbsTemp As Database
    Dim relLoop As Relation

    Set dbsTemp = OpenDatabase("Northwind.mdb")
    Set tdfOrders = dbsTemp.TableDefs("Orders")

    ' Find the "Customers to Orders" Relation object.
    For Each relLoop In dbsTemp.Relations
        If relLoop.Table = "Customers" And _
                relLoop.ForeignTable = "Orders" Then
            ' Set the Relation object's PartialReplica
            ' property to True.
            relLoop.PartialReplica = True
            Exit For
        End If
    Next relLoop

End Sub

Note If you have set a replica filter and a replica relation on the same table, the two act in combination as a logical OR operation, not a logical AND operation. For instance, in the preceding example, the records exchanged during synchronization are all orders greater than $1000 OR all orders from the California region, not all orders from the California region that are over $1000.